home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / COBOL / H309.ZIP / COBFLOW.ZIP / EXAMPLE.TXT < prev    next >
Text File  |  1993-07-06  |  7KB  |  89 lines
  1. A100-DATA-DIVISION            ABA-SELECT                     ENTRY
  2. A100-DATA-DIVISION            ABB-SELECT                    YENTRY
  3. A100-DATA-DIVISION            ABB-SELECT                    CGOTO      ABB-TEST-0001
  4. A100-DATA-DIVISION            ABB-CASE-0001                 YENTRY
  5. A100-DATA-DIVISION            ABB-CASE-0001                 UPERFORM   NAA-ADD-TO-TABLE
  6. A100-DATA-DIVISION            ABB-CASE-0001                 UGOTO      ABB-END
  7. A100-DATA-DIVISION            ABB-TEST-0001                  ENTRY
  8. A100-DATA-DIVISION            ABB-TEST-0001                 UPERFORM   B100-FIND-WORD
  9. A100-DATA-DIVISION            ABB-TEST-0001                 CPERFORM   NAA-ADD-TO-TABLE
  10. A100-DATA-DIVISION            ABB-TEST-0001                 CSTOP      STOP RUN
  11. A100-DATA-DIVISION            ACA-SELECT                    YENTRY
  12. A100-DATA-DIVISION            ACA-SELECT                    CGOTO      ACA-TEST-0001
  13. A100-DATA-DIVISION            ACA-CASE-0001                 YENTRY
  14. A100-DATA-DIVISION            ADA-SELECT                    YENTRY
  15. A100-DATA-DIVISION            ADA-SELECT                    CGOTO      ADA-TEST-0001
  16. A100-DATA-DIVISION            ADA-CASE-0001                 YENTRY
  17. A100-DATA-DIVISION            ADA-CASE-0001                 UPERFORM   C100-PROCESS-DATA-ITEM
  18. A100-DATA-DIVISION            ADA-CASE-0001                 CPERFORM   NAA-ADD-TO-TABLE
  19. A100-DATA-DIVISION            ADA-TEST-0001                 YENTRY
  20. A100-DATA-DIVISION            ADA-END                       YENTRY
  21. A100-DATA-DIVISION            ACA-TEST-0001                 YENTRY
  22. A100-DATA-DIVISION            ACA-END                       YENTRY
  23. A100-DATA-DIVISION            ABB-TEST-0002                 YENTRY
  24. A100-DATA-DIVISION            ABB-END                       YENTRY
  25. A100-DATA-DIVISION            ABB-END                       USTOP      EXIT PROGRAM
  26. A100-DATA-DIVISION            AAA-EPROC                      ENTRY
  27. B100-FIND-WORD                BAA-START                     YENTRY
  28. B100-FIND-WORD                BCA-UNTIL                     YENTRY
  29. B100-FIND-WORD                BCA-UNTIL                     CGOTO      BCA-END
  30. B100-FIND-WORD                BCA-UNTIL                     UGOTO      BCA-UNTIL
  31. B100-FIND-WORD                BCA-END                        ENTRY
  32. B100-FIND-WORD                BCA-END                       UGOTO      BBA-END
  33. B100-FIND-WORD                BBA-END                        ENTRY
  34. B100-FIND-WORD                BAA-EPROC                      ENTRY
  35. C100-PROCESS-DATA-ITEM        CAA-START                     YENTRY
  36. C100-PROCESS-DATA-ITEM        CAA-START                     UPERFORM   D100-EXTRACT-WORDS
  37. C100-PROCESS-DATA-ITEM        CAA-START                     UPERFORM   E100-NOT-WANTED
  38. C100-PROCESS-DATA-ITEM        CBA-SELECT                    YENTRY
  39. C100-PROCESS-DATA-ITEM        CBA-SELECT                    CGOTO      CBA-TEST-0001
  40. C100-PROCESS-DATA-ITEM        CBA-CASE-0001                 YENTRY
  41. C100-PROCESS-DATA-ITEM        CBA-CASE-0001                 UPERFORM   H100-FIELD-NAME
  42. C100-PROCESS-DATA-ITEM        CBA-CASE-0001                 UPERFORM   F100-PICTURE
  43. C100-PROCESS-DATA-ITEM        CBA-CASE-0001                 UPERFORM   G100-OCCURS
  44. C100-PROCESS-DATA-ITEM        CBA-CASE-0001                 UPERFORM   J100-REDEFINES
  45. C100-PROCESS-DATA-ITEM        CBA-TEST-0001                 YENTRY
  46. C100-PROCESS-DATA-ITEM        CBA-END                       YENTRY
  47. C100-PROCESS-DATA-ITEM        CAA-EPROC                     YENTRY
  48. D100-EXTRACT-WORDS            DAA-START                     YENTRY
  49. D100-EXTRACT-WORDS            DBA-UNTIL                     YENTRY
  50. D100-EXTRACT-WORDS            DBA-UNTIL                     CGOTO      DBA-END
  51. D100-EXTRACT-WORDS            DBA-UNTIL                     UGOTO      DBA-UNTIL
  52. D100-EXTRACT-WORDS            DBA-END                        ENTRY
  53. D100-EXTRACT-WORDS            DAA-EPROC                      ENTRY
  54. E100-NOT-WANTED               EAA-START                     YENTRY
  55. E100-NOT-WANTED               EAA-EPROC                     YENTRY
  56. F100-PICTURE                  FAA-START                     YENTRY
  57. F100-PICTURE                  FBA-SELECT                    YENTRY
  58. F100-PICTURE                  FBA-SELECT                    CGOTO      FBA-END
  59. F100-PICTURE                  FBA-SELECT                    CGOTO      FCA-TEST-0001
  60. F100-PICTURE                  FCA-CASE-0001                 YENTRY
  61. F100-PICTURE                  FDA-SELECT                    YENTRY
  62. F100-PICTURE                  FDA-SELECT                    CGOTO      FDA-TEST-0001
  63. F100-PICTURE                  FDA-SELECT                    UGOTO      FDA-END
  64. F100-PICTURE                  FDA-TEST-0001                  ENTRY
  65. F100-PICTURE                  FDA-TEST-0001                 CGOTO      FDA-TEST-0002
  66. F100-PICTURE                  FDA-TEST-0001                 UGOTO      FDA-END
  67. F100-PICTURE                  FDA-TEST-0002                  ENTRY
  68. F100-PICTURE                  FDA-TEST-0002                 CGOTO      FDA-TEST-0003
  69. F100-PICTURE                  FDA-CASE-0003                 YENTRY
  70. F100-PICTURE                  FDA-CASE-0003                 UGOTO      FDA-END
  71. F100-PICTURE                  FDA-TEST-0003                  ENTRY
  72. F100-PICTURE                  FEA-SELECT                    YENTRY
  73. F100-PICTURE                  FEA-SELECT                    CGOTO      FEA-TEST-0001
  74. F100-PICTURE                  FEA-SELECT                    UPERFORM   I100-COMP-FIELD-SIZE
  75. F100-PICTURE                  FEA-SELECT                    UGOTO      FEA-END
  76. F100-PICTURE                  FEA-TEST-0001                  ENTRY
  77. F100-PICTURE                  FEA-TEST-0001                 CGOTO      FEA-TEST-0002
  78. F100-PICTURE                  FEA-TEST-0001                 UGOTO      FEA-END
  79. F100-PICTURE                  FEA-TEST-0002                  ENTRY
  80. F100-PICTURE                  FEA-TEST-0003                 YENTRY
  81. F100-PICTURE                  FEA-END                       YENTRY
  82. F100-PICTURE                  FDA-TEST-0004                 YENTRY
  83. F100-PICTURE                  FDA-END                       YENTRY
  84. F100-PICTURE                  FCA-TEST-0001                 YENTRY
  85. F100-PICTURE                  FCA-END                       YENTRY
  86. F100-PICTURE                  FBA-TEST-0002                 YENTRY
  87. F100-PICTURE                  FBA-END                       YENTRY
  88. F100-PICTURE                  FAA-EPROC                     YENTRY
  89.